home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / ERRDIAL._ / ERRDIAL.
Encoding:
Text File  |  2001-03-02  |  917 b   |  25 lines
  1. 10    ! ***************************************************
  2. 20    ! Example: ERROR Dialog 
  3. 30    ! 
  4. 40    ! This program creates an ERROR dialog. If the user selects 
  5. 50    ! a button (ABORT or CONTINE) within 10 seconds, the program
  6. 60    ! displays the choice. If the user does not make a choice 
  7. 70    ! within 10 seconds, "Timeout occurred - no entry" is displayed.
  8. 80    !
  9. 90    ! ****************************************************
  10. 100   ! 
  11. 110   DIM T$[16],P$[40],A1$[20],S1$(1:2)[10],A2$[20]
  12. 120   INTEGER Btn
  13. 130   DATA "ERROR","Input caused overflow  "
  14. 140   READ T$,P$
  15. 150   DATA "DIALOG BUTTONS","ABORT","CONTINUE","DEFAULT BUTTON" 
  16. 160   READ A1$,S1$(*),A2$
  17. 170    !
  18. 180   DIALOG T$,P$,Btn;SET ("TITLE":" Example: ERROR Dialog",A1$:S1$(*),A2$:0),TIMEOUT 10
  19. 190   IF Btn=-1 THEN
  20. 200     DISP "Timeout occurred - no entry"
  21. 210   ELSE
  22. 220     DISP S1$(Btn+1)
  23. 230   END IF
  24. 240   END
  25.